home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_08_1985_Transactor_Publishing.d64 / 1541 spin1 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  226b  |  9 lines
  1. 10 rem* 1541 motor spin routine *
  2. 20 open 15,8,15
  3. 30 rem execute ml at $f97e to start motor
  4. 40 print#15,"m-e"chr$(126)chr$(249)
  5. 50 for i=1 to 6000:next: rem time delay
  6. 60 rem execute ml at $f9e8 to stop motor
  7. 70 print#15,"m-e"chr$(232)chr$(249)
  8. 80 close 15
  9.